home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / source / gfxfx / raster2.pas < prev    next >
Pascal/Delphi Source File  |  1994-01-30  |  868b  |  74 lines
  1. {$g+}
  2.  
  3. program Splitscreen;
  4. var i : word;
  5.  
  6. begin
  7.   asm
  8.     cli
  9.    @l0:
  10.     mov dx,03dah
  11.    @l1:
  12.     in al,dx
  13.     test al,8
  14.     jnz @l1
  15.    @l2:
  16.     in al,dx
  17.     test al,8
  18.     jz @l2
  19.  
  20.     mov dx,03c8h
  21.     xor al,al
  22.     out dx,al
  23.     inc dx
  24.     mov al,0
  25.     out dx,al
  26.     mov al,10
  27.     out dx,al
  28.     mov al,40
  29.     out dx,al
  30.  
  31.     mov cx,200
  32.    @l3:
  33.  
  34.     mov dx,03dah
  35.    @l4:
  36.     in al,dx
  37.     test al,1
  38.     jnz @l4
  39.    @l5:
  40.     in al,dx
  41.     test al,1
  42.     jz @l5
  43.  
  44.     loop @l3
  45.  
  46.     {
  47.     mov dx,03c8h
  48.     xor al,al
  49.     out dx,al
  50.     inc dx
  51.     mov al,0
  52.     out dx,al
  53.     mov al,10
  54.     out dx,al
  55.     mov al,40
  56.     out dx,al
  57.     }
  58.  
  59.     mov dx,03c8h
  60.     xor al,al
  61.     out dx,al
  62.     inc dx
  63.     out dx,al
  64.     out dx,al
  65.     out dx,al
  66.  
  67.     mov dx,60h
  68.     in al,dx
  69.     cmp al,1
  70.     jne @l0
  71.     sti
  72.   end;
  73. end.
  74.